home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD! Magazine 3 / AUI_CoverDisk_3.bin / cd_techycorner / superdisk36 / superdisk install < prev   
Encoding:
Text File  |  1992-09-02  |  2.6 KB  |  105 lines
  1. (set TRUE 1)
  2. (set FALSE 0)
  3.  
  4. (set docopylibs TRUE)
  5.  
  6. (makeassign "SuperDisk" "SuperDisk36:")
  7.  
  8. (set m1 "\n\n\n\nYou are about to use the\n\nAMIGA USER INTERNATIONAL\n\n")
  9. (set m2 "SuperDisk Installation Utility\n")
  10. (set m3 "\n\n\n\n\nYou have selected the install to Ram Disk option.")
  11. (set m4 "\n\n\n\n\nYou have selected the install to Hard Disk option.")
  12. (set m5 "\n\nYou have selected the install to Floppy Disk option.\n\n")
  13. (set m6 "You will need to have two or three blank formatted disks ")
  14. (set m7 "ready for use.\n\n\n")
  15. (set m8 "If you do not have any disks ready, format some now and then ")
  16. (set m9 "click on \"Proceed\"")
  17. (set m10 "\n\n REMEMBER the Amiga is a multitasking computer!")
  18.  
  19. (message m1 m2)
  20.  
  21. (set installto
  22.    (askchoice
  23.       (prompt "Select the type of disk you\nwant to install to\n")
  24.       (default 0)
  25.       (choices "Ram Disk" "Hard Disk" "Floppy Disk")
  26.       (help @askchoice-help)
  27.    )
  28. )
  29.  
  30. (if (= installto 0 )
  31.    (message m3 )
  32. )
  33. (if (= installto 1 )
  34.    (message m4 )
  35. )
  36. (if (= installto 2 )
  37.    (message m5 m6 m7 m8 m9 m10 )
  38. )
  39.  
  40. (set loopy 1)
  41.  
  42. (while (= loopy 1)
  43.    (set installfile
  44.       (askfile
  45.                (prompt "Please select file to decrunch")
  46.                (default "SuperDisk:Programs")
  47.                (help @askfile-help)
  48.       )
  49.    )
  50.  
  51.    (set installdest
  52.       (askdir
  53.          (prompt "Into which drawer should\n" (fileonly installfile) "\n be installed?")
  54.          (help @askdir-help)
  55.          (if (= installto 0 )
  56.             (default "Ram:")
  57.          )
  58.          (if (= installto 1 )
  59.             (default "Sys:")
  60.          )
  61.          (if (= installto 2 )
  62.             (default "DF0:")
  63.          )
  64.       )
  65.    )
  66.  
  67.    (set lhacommands (cat '"'installfile'"' ' ' '"'installdest'"'))
  68.    (message "\n\n\n\n\nYou are about to execute the command\nSuperDisk:C/LhA x "lhacommands)
  69.    (set @default-dest installdest)
  70.    (run "SuperDisk:C/LhA x "lhacommands)
  71.  
  72.    (set loopy
  73.       (askbool
  74.          (prompt "\n\n\n\n\nWould you like to decrunch any more programs?")
  75.          (default 0)
  76.          (help "Explanation of controls:\n    Select \"Yes\" or \"No\"")
  77.       )
  78.    )
  79. )
  80.  
  81. (if (= docopylibs TRUE)
  82.    (set libyn
  83.          (askbool
  84.             (prompt "\n\n\n\n\nWould you like to install/update any libraries?")
  85.             (default 0)
  86.             (help "Explanation of controls:\n    Select \"Yes\" or \"No\"")
  87.          )
  88.    )
  89. )
  90.  
  91. (if (= libyn TRUE)
  92.    (copyfiles
  93.       (prompt "Please select a file to copy")
  94.       (help @copyfiles-help)
  95.       (source "SuperDisk:Libs")
  96.       (dest "Libs:")
  97.       (files)
  98.       (pattern "#?.library")
  99.       (optional "askuser")
  100.       (confirm)
  101.    )
  102. )
  103.  
  104. (exit "Operation completed")
  105.